1. Nutrition Intake Overview

1.1 Worldwide Discussion

#wordcloud

1.2 Top Food Worldwide (by average daily intake)

1.3 Top Food Worldwide by Sex

1.4 Food Intake Worldwide by Year

2. Dietary Struture

#Dietary Struture 1990
#Dietary Struture 2018

2.1 Dietary Struture Changes in China

#Dietary Struture 1990 in rural China
#Dietary Struture 2018 in urban China
# Refined Grains & Non-starchy Vegetables by Gender in China

2.2 Refined Grains

# Refined Grains wordcloud
# Refined Grains map
# Refined Grains bar chart by continent

2.3 Non-starchy Vegetables

# Vegetables wordcloud
# Vegetables map
# Vegetables bar chart by continent

3. Nutrition & Health

3.1 Food Intake & Life Expetancy

# life exp map

3.1 Food Intake & Cancer Rate

# cancer rate map

Appendix

basic information of food intake

basic_intake <- food_life %>%
  filter(age==999,female==999,urban==999,edu==999) %>%
  rename(continent = superregion2) %>%
  mutate_at(c('intake'), function(x) round(x,2))%>%
  select(continent,year,Country,Food,intake) %>%
  arrange(Country)

datatable(basic_intake,filter = list(position = "top"),rownames = FALSE) 

basic information of life expectancy & cancer rate

basic_life <- food_life %>%
  filter(age==999,female==999,urban==999,edu==999) %>%
  rename(continent = superregion2) %>%
  mutate_at(c('cancer_rate','life_exp'), function(x) round(x,2))%>%
  select(continent,year,Country,life_exp,cancer_rate) %>%
  arrange(Country)

datatable(basic_life,filter = list(position = "top"),rownames = FALSE)